0 REM << CD43-8 >>
1 REM ==================================
2 REM COMMODARES PROBLEM #39-4 :
3 PRINT"[147]  [210]OOT [208]OWER"
4 REM SOLUTION BY
5 REM   JIM SPEERS
6 REM ==================================
100 FOR I=1 TO 256 : K=1 : IF SQR(I^2)=I THEN K=3
110 IF SQR(I*I)=I THEN K=K+1
120 ON K GOTO 160,130,140,150
130 PRINT I;"(I*I) ONLY" : GOTO 160
140 PRINT I;"(I^2) ONLY" : GOTO 160
150 PRINT I;"BOTH EQUAL"
160 NEXT I